#!/usr/bin/perl

use strict;
use warnings;

my $line = "execute (@temp_var1)";

if($line = m/^(\w+)(\s+)[(@](\S+)[)]/) {
	print "Dynamic SQL vaiable: $4\n";
}